﻿Public Class Form19

    Private Sub Tbl_thuBindingNavigatorSaveItem_Click(sender As System.Object, e As System.EventArgs)
        Me.Validate()
        Me.Tbl_thuBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Test4DataSet)

    End Sub

    Private Sub Form19_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'For index = 1 To 100
        MessageBox.Show(Me.TableAdapterManager.TableAdapterInstanceCount.ToString)
        ' Next
        Me.Tbl_testTableAdapter.Fill(Me.Test4DataSet.tbl_test)
        Me.Tbl_thuTableAdapter.Fill(Me.Test4DataSet.tbl_thu)
        Me.Tbl_thuIUltraGrid.setDoiTuongXuLyDuLieu(Me.Test4DataSet.tbl_thu, Me.Tbl_thuBindingSource, Me.Tbl_thuTableAdapter, Me.Test4DataSet)
        Me.Tbl_thuIUltraGrid.setThemIUltraDropDown(Me.Tbl_testIUltraDropDown, Me.Test4DataSet.tbl_test)
        Me.IUltraGrid1.setDoiTuongXuLyDuLieu(Me.Test4DataSet.tbl_thu, Me.Tbl_thuBindingSource, Me.Tbl_thuTableAdapter, Me.Test4DataSet)
        Me.Tbl_testIUltraDropDown.setGiaoDien_An_ColumnHeader()
        Me.Tbl_thuIUltraGrid.setChoPhepMenuStrip()
        'Me.Tbl_thuIUltraGrid.setFocusCellUltraGrid(Me.Tbl_thuIUltraGrid)
        Tbl_thuIUltraGrid.setFocusCellUltraGridNotNew("id", Me.IUltraGrid1)
        'Me.Tbl_thuIUltraGrid.setFocusIUltraGrid("ghichu", Me.IUltraGrid1)
        Me.IUltraGrid1.setMacDinh("ma", "ltp")
        Me.IUltraGrid1.setMacDinh("ten", "ltp")
        'Me.Tbl_thuIUltraGrid.setMacDinh("ma", "ltp")
        'Me.Tbl_thuIUltraGrid.setMacDinh("ten", "ltp")
        Me.IUltraGrid1.setThemIUltraDropDown(Me.Tbl_testIUltraDropDown, Me.Test4DataSet.tbl_test)
        Me.IUltraGrid1.setChoPhepMenuStrip()
        Me.Tbl_thuIUltraGrid.setChoPhepMenuStrip()
        'Me.IReportViewer1.setParameter(Me.Test4DataSet.tbl_test)
        'Me.IReportViewer1.RefreshReport()
    End Sub

    Private Sub UltraButton1_Click(sender As System.Object, e As System.EventArgs) Handles UltraButton1.Click
        'MessageBox.Show(Me.Tbl_thuIUltraGrid.checkRowActiveUltraGrid().ToString)
        Me.Tbl_thuIUltraGrid.setFocusCellUltraGrid(Me.IUltraGrid1)

    End Sub


End Class